inherited FRotinaGeraCobrancaProgramada2: TFRotinaGeraCobrancaProgramada2
  Caption = 'FRotinaGeraCobrancaProgramada2'
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    object Label1: TLabel
      Left = 6
      Top = 16
      Width = 80
      Height = 16
      Caption = 'Compet'#234'ncia '
    end
    object Label2: TLabel
      Left = 7
      Top = 71
      Width = 100
      Height = 16
      Caption = 'Data Vencimento'
    end
    object DTPeriodoValidade: TDateTimePicker
      Tag = 5
      Left = 6
      Top = 35
      Width = 127
      Height = 21
      CalAlignment = dtaLeft
      Date = -363
      Format = 'MMMM yyyy'
      Time = -363
      DateFormat = dfShort
      DateMode = dmUpDown
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DEDataVencimento: TDateEdit
      Tag = 5
      Left = 7
      Top = 89
      Width = 98
      Height = 21
      ButtonWidth = 26
      NumGlyphs = 2
      TabOrder = 1
    end
  end
  object QContasReceber: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from ContasReceber'
      ''
      
        'Order By CR_Codigo,CR_CLIENTE,CR_PLANO,CR_DATAVENCIMENTO,CR_VALO' +
        'R')
    Left = 248
    Top = 1
  end
  object QNotaFiscalvenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 283
    Top = 1
  end
  object QItensNotaFiscalVenda: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select  *   From itensnotafiscalvenda')
    Left = 315
    Top = 1
  end
  object QAux: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select  *   From notafiscalvenda')
    Left = 347
    Top = 1
  end
  object QCliente: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From Cliente'
      'order By cli_codigo')
    Left = 419
    Top = 44
  end
  object QTipoVenda: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From TipoVenda'
      'order By TipVend_Descricao')
    Left = 515
    Top = 60
  end
  object DataSource1: TDataSource
    DataSet = QCobrancaProgramada
    Left = 488
    Top = 168
  end
  object dsCadastro: TDataSource
    AutoEdit = False
    DataSet = cdsCadastro
    Left = 496
    Top = 104
  end
  object QCadastro: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Cobranca_Programada '
      
        'inner join cliente on (Cobranca_Programada.cliente = Cliente.cli' +
        '_codigo)'
      'Where (CodigoEmpresa = 1)')
    Left = 488
    Top = 40
    object QCadastroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroTIPODOCUMENTO: TIntegerField
      FieldName = 'TIPODOCUMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.TIPODOCUMENTO'
    end
    object QCadastroCLIENTE: TIntegerField
      FieldName = 'CLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CLIENTE'
    end
    object QCadastroPORTADOR: TIntegerField
      FieldName = 'PORTADOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PORTADOR'
    end
    object QCadastroPLANO: TIntegerField
      FieldName = 'PLANO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PLANO'
    end
    object QCadastroDIAVENCIMENTO: TStringField
      FieldName = 'DIAVENCIMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DIAVENCIMENTO'
      Size = 2
    end
    object QCadastroVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.VALOR'
    end
    object QCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGOEMPRESA'
    end
    object QCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAMODIFICACAO'
    end
    object QCadastroCENTROCUSTO: TIntegerField
      FieldName = 'CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CENTROCUSTO'
    end
    object QCadastroHISTORICO1: TStringField
      FieldName = 'HISTORICO1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO1'
      Size = 52
    end
    object QCadastroHISTORICO2: TStringField
      FieldName = 'HISTORICO2'
      Origin = 'BASE.COBRANCA_PROGRAMADA.HISTORICO2'
      Size = 52
    end
    object QCadastroCONTACONTABIL: TIntegerField
      FieldName = 'CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CONTACONTABIL'
    end
    object QCadastroPERIODOVALIDADEINI: TDateTimeField
      FieldName = 'PERIODOVALIDADEINI'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEINI'
    end
    object QCadastroPERIODOVALIDADEFIN: TDateTimeField
      FieldName = 'PERIODOVALIDADEFIN'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PERIODOVALIDADEFIN'
    end
    object QCadastroDATAINATIVO: TDateTimeField
      FieldName = 'DATAINATIVO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATAINATIVO'
    end
    object QCadastroGERANOTAFISCALVENDA: TSmallintField
      FieldName = 'GERANOTAFISCALVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.GERANOTAFISCALVENDA'
    end
    object QCadastroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.PRODUTO'
    end
    object QCadastroSERVICO: TStringField
      FieldName = 'SERVICO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SERVICO'
      Size = 200
    end
    object QCadastroFORMAPAGAMENTO: TStringField
      FieldName = 'FORMAPAGAMENTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FORMAPAGAMENTO'
      Size = 40
    end
    object QCadastroABATERETENCAO: TSmallintField
      FieldName = 'ABATERETENCAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.ABATERETENCAO'
    end
    object QCadastroRETEMISS: TSmallintField
      FieldName = 'RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.RETEMISS'
    end
    object QCadastroEMITEBOLETO: TSmallintField
      FieldName = 'EMITEBOLETO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EMITEBOLETO'
    end
    object QCadastroFONTERECURSO: TIntegerField
      FieldName = 'FONTERECURSO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.FONTERECURSO'
    end
    object QCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_CADASTRO'
    end
    object QCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_AUTERACAO'
    end
    object QCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_EXCLUSAO'
    end
    object QCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_CADASTRO'
    end
    object QCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_EXCLUSAO'
    end
    object QCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_AUTERACAO'
    end
    object QCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.USUARIO_RECUPERACAO'
    end
    object QCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_RECUPERACAO'
    end
    object QCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object QCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.DATA_REPLICACAO'
    end
    object QCadastroCLI_CODIGO: TIntegerField
      FieldName = 'CLI_CODIGO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RAZAO: TStringField
      FieldName = 'CLI_RAZAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_FANTASIA: TStringField
      FieldName = 'CLI_FANTASIA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_TIPOCLIENTE: TStringField
      FieldName = 'CLI_TIPOCLIENTE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 1
    end
    object QCadastroCLI_CPFCNPJ: TStringField
      FieldName = 'CLI_CPFCNPJ'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_INSCESTADUAL: TStringField
      FieldName = 'CLI_INSCESTADUAL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_INSCMUNICIPAL: TStringField
      FieldName = 'CLI_INSCMUNICIPAL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_FONE: TStringField
      FieldName = 'CLI_FONE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_FAX: TStringField
      FieldName = 'CLI_FAX'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_EMAIL: TStringField
      FieldName = 'CLI_EMAIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 62
    end
    object QCadastroCLI_IDENTENDCORRESP: TStringField
      FieldName = 'CLI_IDENTENDCORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_IDENTENDPEDIDO: TStringField
      FieldName = 'CLI_IDENTENDPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_IDENTENDDUPLICATA: TStringField
      FieldName = 'CLI_IDENTENDDUPLICATA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_IDENTENDNF: TStringField
      FieldName = 'CLI_IDENTENDNF'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_IDENTENDBLOQUETE: TStringField
      FieldName = 'CLI_IDENTENDBLOQUETE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_ENDERECOCORRESP: TStringField
      FieldName = 'CLI_ENDERECOCORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_BAIRROCORRESP: TStringField
      FieldName = 'CLI_BAIRROCORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_CEPCORRESP: TStringField
      FieldName = 'CLI_CEPCORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 10
    end
    object QCadastroCLI_CIDADECORRESP: TStringField
      FieldName = 'CLI_CIDADECORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_ESTADOCORRESP: TStringField
      FieldName = 'CLI_ESTADOCORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_ENDERECOPEDIDO: TStringField
      FieldName = 'CLI_ENDERECOPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_BAIRROPEDIDO: TStringField
      FieldName = 'CLI_BAIRROPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_CEPPEDIDO: TStringField
      FieldName = 'CLI_CEPPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 10
    end
    object QCadastroCLI_CIDADEPEDIDO: TStringField
      FieldName = 'CLI_CIDADEPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_ESTADOPEDIDO: TStringField
      FieldName = 'CLI_ESTADOPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 2
    end
    object QCadastroCLI_VENDEDOR: TIntegerField
      FieldName = 'CLI_VENDEDOR'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_OBS: TStringField
      FieldName = 'CLI_OBS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 255
    end
    object QCadastroUSUARIO_1: TStringField
      FieldName = 'USUARIO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 10
    end
    object QCadastroDATAMODIFICACAO_1: TDateTimeField
      FieldName = 'DATAMODIFICACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_CONTATO: TStringField
      FieldName = 'CLI_CONTATO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 60
    end
    object QCadastroCLI_CONTACONTABIL: TIntegerField
      FieldName = 'CLI_CONTACONTABIL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_SITUACAO: TSmallintField
      FieldName = 'CLI_SITUACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCIRRF: TFloatField
      FieldName = 'CLI_PERCIRRF'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCISS: TFloatField
      FieldName = 'CLI_PERCISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCPIS: TFloatField
      FieldName = 'CLI_PERCPIS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCCOFINS: TFloatField
      FieldName = 'CLI_PERCCOFINS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCCSLL: TFloatField
      FieldName = 'CLI_PERCCSLL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_PERCINSS: TFloatField
      FieldName = 'CLI_PERCINSS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMISS: TSmallintField
      FieldName = 'CLI_RETEMISS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_GRUPO: TStringField
      FieldName = 'CLI_GRUPO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 1
    end
    object QCadastroCLI_CODIGO_LOGISTICA: TIntegerField
      FieldName = 'CLI_CODIGO_LOGISTICA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_CENTROCUSTO: TIntegerField
      FieldName = 'CLI_CENTROCUSTO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_CLASSIFICACAO: TIntegerField
      FieldName = 'CLI_CLASSIFICACAO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroHIDROMETRO_LOGISITICA: TIntegerField
      FieldName = 'HIDROMETRO_LOGISITICA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMINSS: TSmallintField
      FieldName = 'CLI_RETEMINSS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMIRRF: TSmallintField
      FieldName = 'CLI_RETEMIRRF'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMPIS: TSmallintField
      FieldName = 'CLI_RETEMPIS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMCOFINS: TSmallintField
      FieldName = 'CLI_RETEMCOFINS'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RETEMCSLL: TSmallintField
      FieldName = 'CLI_RETEMCSLL'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_TIPOVENDA: TIntegerField
      FieldName = 'CLI_TIPOVENDA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_FK_GRUPO: TIntegerField
      FieldName = 'CLI_FK_GRUPO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_CV: TFloatField
      FieldName = 'CLI_CV'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_SITUACAO_CREDITO: TStringField
      FieldName = 'CLI_SITUACAO_CREDITO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 1
    end
    object QCadastroCLI_VALOR_LIMITE: TFloatField
      FieldName = 'CLI_VALOR_LIMITE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_VALOR_CREDITO: TFloatField
      FieldName = 'CLI_VALOR_CREDITO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_DATA_LIMITE: TDateTimeField
      FieldName = 'CLI_DATA_LIMITE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_OBS_LIMITE: TStringField
      FieldName = 'CLI_OBS_LIMITE'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 255
    end
    object QCadastroCLI_TRAVAPEDIDO: TStringField
      FieldName = 'CLI_TRAVAPEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 1
    end
    object QCadastroCLI_CODIGO_CONFERENCIA: TIntegerField
      FieldName = 'CLI_CODIGO_CONFERENCIA'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroUSUARIO_CADASTRO_1: TStringField
      FieldName = 'USUARIO_CADASTRO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroUSUARIO_AUTERACAO_1: TStringField
      FieldName = 'USUARIO_AUTERACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroUSUARIO_EXCLUSAO_1: TStringField
      FieldName = 'USUARIO_EXCLUSAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroDATA_CADASTRO_1: TDateTimeField
      FieldName = 'DATA_CADASTRO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroDATA_EXCLUSAO_1: TDateTimeField
      FieldName = 'DATA_EXCLUSAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroDATA_AUTERACAO_1: TDateTimeField
      FieldName = 'DATA_AUTERACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroEXCLUIDO_1: TStringField
      FieldName = 'EXCLUIDO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 1
    end
    object QCadastroUSUARIO_RECUPERACAO_1: TStringField
      FieldName = 'USUARIO_RECUPERACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroDATA_RECUPERACAO_1: TDateTimeField
      FieldName = 'DATA_RECUPERACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_TIPO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_CORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 3
    end
    object QCadastroCLI_NUMERO_ENDERECO_CORRESP: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_CORRESP'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 10
    end
    object QCadastroCLI_TIPO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_TIPO_ENDERECO_PEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 3
    end
    object QCadastroCLI_NUMERO_ENDERECO_PEDIDO: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO_PEDIDO'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      Size = 10
    end
    object QCadastroSITUACAO_DA_REPLICACAO_1: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
      FixedChar = True
      Size = 1
    end
    object QCadastroCODIGOEMPRESA_1: TIntegerField
      FieldName = 'CODIGOEMPRESA_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroDATA_REPLICACAO_1: TDateTimeField
      FieldName = 'DATA_REPLICACAO_1'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
    object QCadastroCLI_RG: TStringField
      FieldName = 'CLI_RG'
      Origin = 'BASE.COBRANCA_PROGRAMADA.CODIGO'
    end
  end
  object QCobrancaProgramada: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from Cobranca_Programada'
      'Where (CodigoEmpresa = 1)'
      ''
      
        'And (PERIODOVALIDADEINI <='#39'2003/08/01'#39' and PERIODOVALIDADEFIN >=' +
        #39'2003/08/01'#39')'
      ''
      'And (DATAINATIVO <> '#39'2003/08/01'#39' )'
      '')
    Left = 423
    Top = 137
  end
  object dspCadastro: TDataSetProvider
    DataSet = QCadastro
    Constraints = True
    Options = [poAllowCommandText]
    Left = 512
    Top = 144
  end
  object cdsCadastro: TClientDataSet
    Aggregates = <>
    FetchOnDemand = False
    PacketRecords = 500
    Params = <>
    ProviderName = 'dspCadastro'
    Left = 440
    Top = 80
  end
  object PopupMenu1: TPopupMenu
    Left = 440
    Top = 168
    object Selecionar1: TMenuItem
      Caption = 'Selecionar'
    end
    object Novo1: TMenuItem
      Caption = 'Novo'
    end
    object Excluir1: TMenuItem
      Caption = 'Excluir'
    end
    object N1: TMenuItem
      Caption = '-----------------------'
    end
    object ExibirTudo1: TMenuItem
      Caption = 'Exibir Tudos'
    end
    object SoExcluidos1: TMenuItem
      Caption = 'Exibir s'#243' Excluidos'
    end
    object NoExcluidos1: TMenuItem
      Caption = 'Exibir n'#227'o Excluidos'
    end
  end
  object dsCamposPesquisa: TDataSource
    Left = 448
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 144
    Top = 65528
  end
end
